# Script to handle the output data
source("../readf.r")
# Read in data
x6.0301 <- readf("reg.6.0301",nexp=30)
#x6.0302 <- read0301("reg.6.0301.p2",nexp=30)
#x6.0401 <- readf("reg.6.0401",nexp=30)
#x6.0402 <- readf("reg.6.0402",nexp=30)
#x6.0403 <- readf("reg.6.0403",nexp=30)
#x6.0405 <- readf("reg.6.0405",nexp=30)
#x6.0406 <- readf("reg.6.0406",nexp=30)
# organize data
#x6.objf <- list(at.as=x6.0302$objf, co.as=x6.0401$objf, co.ws=x6.0402$objf, co.ai=x6.0405$objf, co.wi=x6.0406$objf, co.mo=x6.0403$objf)
#x6.subjf <- list(at.as=x6.0302$subjf, co.as=x6.0401$subjf, co.ws=x6.0402$subjf, co.ai=x6.0405$subjf, co.wi=x6.0406$subjf, co.mo=x6.0403$subjf)
#x6.ofc <- list(at.as=x6.0302$ofc, co.as=x6.0401$ofc, co.ws=x6.0402$ofc, co.ai=x6.0405$ofc, co.wi=x6.0406$ofc, co.mo=x6.0403$ofc)
#rm(x6.0301, x6.0401, x6.0402, x6.0403, x6.0405, x6.0406)
# Done
